Code
set.seed(258)
population <- rnorm(1000, mean = 12, sd = 5)
# create samples
sample1 <- round(sample(population, size = 6), 1)
sample2 <- round(sample(population, size = 6), 1)
sample3 <- round(sample(population, size = 6), 1)
# show samples
for (i in 1:3) {
cat(sprintf("Sample %d: ", i), get(paste0("sample", i)), "\n")
}Sample 1: 13.7 14.6 14.8 9.6 6.5 10
Sample 2: 7.6 6.1 9.9 10.1 12.5 14.9
Sample 3: 9.8 7.9 18.4 19.1 7 26.1